unit UPessoa;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TFormPessoa = class(TForm)
    BtnSalvar: TButton;
    LabelTitulo: TLabel;
    LabelCod: TLabel;
    LabelNome: TLabel;
    EditCod: TEdit;
    EditNome: TEdit;
    LabelDTNasc: TLabel;
    DateTimePickerNasc: TDateTimePicker;
    Memo1: TMemo;
    StatusBar1: TStatusBar;
    procedure BtnSalvarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPessoa: TFormPessoa;

implementation

uses UPessoaControl;

{$R *.dfm}

procedure TFormPessoa.BtnSalvarClick(Sender: TObject);
  var
    objpes: TPessoaControl;
begin
  StatusBar1.Panels[0].Text :=  'Iniciado o cadastro.';
  try
    try
      objpes := TPessoaControl.Create;
      objpes.Codigo := StrToInt(EditCod.Text);
      objpes.Nome := EditNome.Text;
      objpes.Nascimento := DateTimePickerNasc.DateTime;

      Memo1.Lines.Add('Codigo     : ' + IntToStr(objpes.Codigo));
      Memo1.Lines.Add('Nome       : ' + objpes.Nome);
      Memo1.Lines.Add('Nascimento : ' + DateToStr(objpes.Nascimento));
      Memo1.Lines.Add('Idade      : ' + IntToStr(objpes.GetIdade(objpes.Nascimento)));
    except
      on Erro: Exception do
      begin
        ShowMessage('Class: ' + Erro.ClassName + 'Erro ao cadastrar pessoa ' + objpes.Nome + '. ' + #13 + 'Msg.: ' + Erro.Message);
      end; // fim try except
    end;
  finally
    objpes.Free;
    StatusBar1.Panels[0].Text :=  'Finalizado o cadastro.';
  end; // fim try finally
end;

end.
